3 L$="":RESTORE
5 POKE53280,6:POKE53265,PEEK(53265)AND239
10 FORI=1TO24:READA$:NEXT:X=60:Y=57:CL=1:SC=53281
15 FORI=12288TO12350:READSP:POKEI,SP:NEXT
17 FORI=12352TO12414:READSP:POKEI,SP:NEXT
19 FORI=12416TO12478:READSP:POKEI,SP:NEXT
21 FORI=12480TO12542:READSP:POKEI,SP:NEXT
23 FORI=12544TO12606:READSP:POKEI,SP:NEXT
25 FORI=12608TO12670:READSP:POKEI,SP:NEXT
27 FORI=12672TO12734:READSP:POKEI,SP:NEXT
29 FORI=12736TO12798:READSP:POKEI,SP:NEXT
35 M=.:V=53248:FORI=2040TO2047:M=M+1:POKEI,191+M:NEXT
40 FORI=39TO46:CL=CL+1:POKEV+I,CL:NEXT
50 FORI=0TO6STEP2:X=X+22:POKEV+I,X:NEXT:FORI=1TO13STEP2:POKEV+I,Y:NEXT
60 POKEV+8,195:POKEV+10,215:POKEV+12,240
70 POKEV+16,128:POKEV+14,5:POKEV+15,Y
100 PRINT"[147]":POKE SC,1:POKEV+21,255:TA=10
110 POKE53265,PEEK(53265)OR16
145 PRINTLEFT$(L$,5)"   * * *   D I R E C T O R Y   * * *    ":RESTORE
150 A=A+1:B=B+1:READPR$:IFA>9THENTA=9
160 PRINTLEFT$(L$,B+7)TAB(TA)""A"-"PR$
165 IF B=12 THEN 175
170 GOTO 150
175 IF A>=24 THEN RESTORE:A=0
180 PRINT LEFT$(L$,23)TAB(7)"[156] DIST. BY DOUBLE L SOFTWARE"
190 PRINT LEFT$(L$,24)TAB(7)"[156] (C) ION INTERNATIONAL INC ":POKE198,0:AN$=""
200 PRINT LEFT$(L$,21)TAB(8)"PRESS F1[146] OR CHOOSE NO. ";
210 GETTM$:IFTM$=CHR$(13)ANDAN$=""THEN 210
211 IFTM$=CHR$(20)THENPRINT"[157]    ":GOTO190
215 IFTM$="[133]"THENGOSUB300:TA=10:B=.:GOTO150
218 IFTM$=CHR$(13)ANDAN$<>" "THEN 225
220 AN$=AN$+TM$:PRINTAN$;"_";
221 T=PEEK(V+39):POKEV+39,PEEK(V+40):POKEV+40,PEEK(V+41):POKEV+41,PEEK(V+42)
222 POKEV+42,PEEK(V+43):POKEV+43,PEEK(V+44):POKEV+44,PEEK(V+45)
223 POKEV+45,PEEK(V+46):POKEV+46,T:FORD=1TO30:NEXT
224 GOTO200
225 AN=VAL(AN$):IFAN<1ORAN>24THENPRINT"[157]     ":GOTO190
226 AN=VAL(AN$):RESTORE:FOR CH=1 TO AN:READ PR$:NEXT
230 POKEV+21,0:PRINT "[147]":POKE 53280,0:POKE 53281,0
235 PRINTLEFT$(L$,15)TAB(10)"[159]LOADING "PR$"[144]"
240 PRINT "LOAD";CHR$(34);PR$;CHR$(34);",8"
250 PRINT "RUN":PRINT "[145][145][145][145][145][145][145][145][145]"
260 POKE 631,13:POKE 632,13:POKE 198,2:END
300 FORLI=6TO19
310 PRINTLEFT$(L$,LI)"                                    ":NEXT:RETURN
500 DATA 64 BUG REP,FLANKSPEED,INSTA BUG 64,VIC BUG REP,WINDOWS,EXT BACKROUND
510 DATA SLIPSHOD,STRUCTURED,ELMAC,MAKING CHANGE,MAKING CHANGE 2,MAKING CHANGE 3
520 DATA SIMPLE COMP.,ARENA BOOT,TERNARY,LONG LINE,ALIGNMENT CHECK,CRABFIGHT
530 DATA CHARACTER DUMP,TREASURE WHEEL,HEAD TO HEAD,MEASURE DEC.,MOVCHR BOOT
540 DATA DOUBLE L NEWS
599 REM * F *
600 DATA 0,0,0,0,0,0,31,255,240,15,255,248,7,255,248,7,255,240,7,128,0,7,128,0
610 DATA 7,128,0,7,128,0,7,252,0,7,254,0,7,252,0,7,128,0,7,128,0,7,128,0
620 DATA 7,128,0,15,128,0,31,128,0,0,0,0,0,0,0
625 REM * E *
630 DATA 0,0,0,0,0,0,7,255,224,7,255,240,7,255,240,7,255,224,7,128,0,7,128,0
640 DATA 7,128,0,7,248,0,7,252,0,7,248,0,7,128,0,7,128,0,7,128,0,7,255,224
650 DATA 7,255,240,7,255,240,7,255,224,0,0,0,0,0,0
655 REM * B *
660 DATA 0,0,0,0,0,0,7,254,0,7,255,128,7,255,192,7,135,224,7,131,224,7,131,224
670 DATA 7,135,192,7,255,0,7,255,0,7,135,192,7,131,224,7,129,240,7,129,240
680 DATA 7,131,240,7,255,224,7,255,192,7,255,0,0,0,0,0,0,0
685 REM * . *
690 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
700 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,128,0,3,128,0,3,128,0,0,0,0,0,0,0
715 REM * 1 *
720 DATA 0,0,0,0,0,0,0,62,0,0,126,0,0,254,0,1,254,0,0,62,0,0,62,0,0,62,0,0,62,0
730 DATA 0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,1,255,192,1,255,192,1,255
740 DATA 192,0,0,0,0,0,0
745 REM * 9 *
750 DATA 0,0,0,0,0,0,0,255,0,3,255,192,7,255,240,15,195,240,15,129,248,15,129
760 DATA 248,7,195,248,7,255,248,3,255,248,0,255,248,0,0,248,0,0,248,15,128
770 DATA 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0
775 REM * 8 *
780 DATA 0,0,0,0,0,0,0,254,0,7,255,192,15,255,224,31,131,240,31,1,240,31,1,240
790 DATA15,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31,1,240
800 DATA 31,131,240,15,255,224,7,255,192,1,255,0,0,0,0,0,0,0
805 REM * 6 *
810 DATA 0,0,0,0,0,0,0,255,128,3,255,224,7,255,240,15,255,248,15,192,248
820 DATA 15,128,0,15,128,0,15,191,128,15,255,224,15,255,240,15,227,248
830 DATA 15,193,248,15,193,248,15,255,240,7,255,240,3,255,224,0,255,128,0,0,0,0
832 DATA 0,0